uses crt;

var a:array[1..200]of integer;

n,i,k,t,t1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

var a,b,i,t,s: word;

begin

repeat

writeln('Nhap A,B vao: (cach nhau boi dau Enter)');

readln(a);

read(b);

writeln('Nhap lai gia tri A,B: ');

until (a>=1) and (b>=1) and (a<=10000) and (b<10000);

s:=a+b;

t:=a*b;

if s<t then i:=s else i:=t;

while (s mod i <> 0) or (t mod i <> 0) do i:=i-1;

writeln('UCLN cua A+B va AB: ',i);

writeln('So du khi chia AB cho A+B: ', t mod s);

end.

uses crt;

var a:array[1..100]of integer;

n,i,k,dem,dem1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

dem:=0;

dem1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then inc(dem);

if a[i] mod k=0 then inc(dem1);

end;

writeln('So phan tu chan la: ',dem);

writeln('So phan tu chia het cho ',k,' la: ',dem1);

readln;

end.

Em cho thêm điều kiện loại Khá của em là gì?

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

      A: array[1..1000] of integer;

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

 write('A[',i,']= ');

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.

Program HOC24;

var n,d,i: integer;

B: array[1..100] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do 

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

uses crt;
var b:array[1..100] of longint;
      n,i,d,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(b[i]);
                  if b[i]>0 then begin
                        inc(d);
                        inc(s,b[i]);
                  end;
            end;
      writeln('Tong cac so duong: ',s);
      writeln('Co ',d,' so duong');
      readln;
end.

# Nhập số nguyên dương N từ bàn phím

N = int(input("Nhập số nguyên dương N: "))

# Khởi tạo dãy số nguyên

numbers = []

# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers

for i in range(N):

     number = int(input("Nhập số thứ {}:".format(i+1)))

     numbers.append(number)

# In ra dãy số đã nhập

print("Dãy số bạn đã nhập là: ", end="")

for number in numbers:

     print(number, end=" ")

print()

# Tính tổng các số chia hết cho 3 và in ra màn hình

total = 0

for number in numbers:

     if number % 3 == 0:

          total += number

print("Tổng các số trong dãy chia hết cho 3 là: ", total)